home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / tsipp / tsipp.lha / tsipp3.0a / demos / woodtest.tcl < prev   
Encoding:
Text File  |  1992-11-02  |  873 b   |  22 lines
  1. #==============================================================================
  2. #                                woodtest.tcl
  3. #------------------------------------------------------------------------------
  4. # A port of SIPP demo program woodtest.c to Tcl-SIPP.
  5. #------------------------------------------------------------------------------
  6. # $Id: woodtest.tcl,v 2.0 1992/11/02 03:55:27 markd Rel $
  7. #------------------------------------------------------------------------------
  8.  
  9. source util.tcl
  10. ParseArgs 3
  11.  
  12. set wood_surf [SippShaderWood 0.5 0.0 0.99 10.0 {0.770 0.568 0.405} \
  13.                               {0.468 0.296 0.156} {1.0 1.0 1.0}]
  14.  
  15. SippLightSourceCreate {1.0 1.0 1.0} {0.9 0.9 0.9} DIRECTION
  16.  
  17. SippObjectAddSubobj WORLD [SippBlock {4.0 3.0 3.0} $wood_surf WORLD]
  18.  
  19. SippCameraParams STDCAMERA {10.0 10.0 20.0} {0.0 0.0 0.0} {0.0 1.0 0.0} 0.125
  20.  
  21. DoRendering "wood"
  22.